home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Dev / GNU-SMALLTALK.lha / examples / CFuncs.st next >
Text File  |  1992-02-15  |  23KB  |  482 lines
  1. "======================================================================
  2. |
  3. |   SystemDictionary Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file LICENSE.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbyrne      8 Jul 89      Created.
  36. |
  37. "
  38.  
  39. Behavior defineCFunc: 'system'
  40.          withSelectorArgs: 'system: aString'
  41.      forClass: SystemDictionary
  42.      returning: #int
  43.      args: #(string)!
  44.  
  45. Behavior defineCFunc: 'getenv'
  46.          withSelectorArgs: 'getenv: aString'
  47.      forClass: SystemDictionary
  48.      returning: #string
  49.      args: #(string)!
  50.  
  51. "Below are object and method definitions used to create a simple interface
  52. to SunView windws from GNU Smalltalk."
  53.  
  54. Smalltalk at: #SuntoolObjectTypes put: Dictionary new!
  55.  
  56. Behavior defineCFunc: 'lookupCAddr'
  57.          withSelectorArgs: 'lookupCAddr: aString'
  58.      forClass: SystemDictionary
  59.      returning: #cObject
  60.      args: #(string)!
  61.  
  62. !Dictionary methodsFor: 'testing'!
  63.  
  64. findDefsFor: anArray
  65.     anArray do:
  66.     [ :elt | self at: (elt at: 1)
  67.               put: (Smalltalk lookupCAddr: (elt at: 2)) ]
  68. !!
  69.  
  70. Smalltalk addInit:
  71.     [ SuntoolObjectTypes findDefsFor: #(
  72.         (FrameType            'FRAME')
  73.         (PanelType            'PANEL')
  74.         (PanelMessageType    'PANEL_MESSAGE')
  75.         (PanelButtonType    'PANEL_BUTTON')
  76.         (PanelChoiceType    'PANEL_CHOICE')
  77.         (PanelSliderType    'PANEL_SLIDER')
  78.         (PanelTextType        'PANEL_TEXT')
  79.         (PanelToggleType    'PANEL_TOGGLE')
  80.         (PanelLineType        'PANEL_LINE')
  81.         )
  82.     ] !
  83.  
  84.  
  85. Smalltalk at: #PanelAttrs put: Dictionary new!
  86.  
  87. PanelAttrs findDefsFor: #(
  88.     (panelItemX                     'PANEL_ITEM_X')
  89.     (panelItemXGap                  'PANEL_ITEM_X_GAP')
  90.     (panelLabelX                    'PANEL_LABEL_X')
  91.     (panelValueX                    'PANEL_VALUE_X')
  92.     (panelSliderWidth               'PANEL_SLIDER_WIDTH')
  93.     (panelWidth                     'PANEL_WIDTH')
  94.     (panelChoiceX                   'PANEL_CHOICE_X')
  95.     (panelMarkX                     'PANEL_MARK_X')
  96.     (panelChoiceXs                  'PANEL_CHOICE_XS')
  97.     (panelMarkXs                    'PANEL_MARK_XS')
  98.     (panelItemY                     'PANEL_ITEM_Y')
  99.     (panelItemYGap                  'PANEL_ITEM_Y_GAP')
  100.     (panelLabelY                    'PANEL_LABEL_Y')
  101.     (panelValueY                    'PANEL_VALUE_Y')
  102.     (panelHeight                    'PANEL_HEIGHT')
  103.     (panelChoiceY                   'PANEL_CHOICE_Y')
  104.     (panelMarkY                     'PANEL_MARK_Y')
  105.     (panelChoiceYs                  'PANEL_CHOICE_YS')
  106.     (panelMarkYs                    'PANEL_MARK_YS')
  107.     (panelValue                     'PANEL_VALUE')
  108.     (panelLabelDisplayLength        'PANEL_LABEL_DISPLAY_LENGTH')
  109.     (panelValueDisplayLength        'PANEL_VALUE_DISPLAY_LENGTH')
  110.     (panelValueStoredLength         'PANEL_VALUE_STORED_LENGTH')
  111.     (panelMinValue                  'PANEL_MIN_VALUE')
  112.     (panelMaxValue                  'PANEL_MAX_VALUE')
  113.     (panelChoiceOffset              'PANEL_CHOICE_OFFSET')
  114.     (panelTimerSecs                 'PANEL_TIMER_SECS')
  115.     (panelTimerUsecs                'PANEL_TIMER_USECS')
  116.     (panelMenuChoiceValues          'PANEL_MENU_CHOICE_VALUES')
  117.     (panelValueUnderlined           'PANEL_VALUE_UNDERLINED')
  118.     (panelItemBoxed                 'PANEL_ITEM_BOXED')
  119.     (panelLabelBold                 'PANEL_LABEL_BOLD')
  120.     (panelChoicesBold               'PANEL_CHOICES_BOLD')
  121.     (panelShowItem                  'PANEL_SHOW_ITEM')
  122.     (panelShowValue                 'PANEL_SHOW_VALUE')
  123.     (panelShowRange                 'PANEL_SHOW_RANGE')
  124.     (panelShowMenu                  'PANEL_SHOW_MENU')
  125.     (panelShowMenuMark              'PANEL_SHOW_MENU_MARK')
  126.     (panelChooseOne                 'PANEL_CHOOSE_ONE')
  127.     (panelAdjustable                'PANEL_ADJUSTABLE')
  128.     (panelBlinkCaret                'PANEL_BLINK_CARET')
  129.     (panelAcceptKeystroke           'PANEL_ACCEPT_KEYSTROKE')
  130.     (panelLabelShaded               'PANEL_LABEL_SHADED')
  131.     (panelToggleValue               'PANEL_TOGGLE_VALUE')
  132.     (panelNotifyLevel               'PANEL_NOTIFY_LEVEL')
  133.     (panelDisplayLevel              'PANEL_DISPLAY_LEVEL')
  134.     (panelLayout                    'PANEL_LAYOUT')
  135.     (panelFeedback                  'PANEL_FEEDBACK')
  136.     (panelPaint                     'PANEL_PAINT')
  137.     (panelMouseState                'PANEL_MOUSE_STATE')
  138.     (panelMaskChar                  'PANEL_MASK_CHAR')
  139.     (panelLabelString               'PANEL_LABEL_STRING')
  140.     (panelValueString               'PANEL_VALUE_STRING')
  141.     (panelNotifyString              'PANEL_NOTIFY_STRING')
  142.     (panelMenuTitleString           'PANEL_MENU_TITLE_STRING')
  143.     (panelName                      'PANEL_NAME')
  144.     (panelChoiceStrings             'PANEL_CHOICE_STRINGS')
  145.     (panelMenuChoiceStrings         'PANEL_MENU_CHOICE_STRINGS')
  146.     (panelChoiceString              'PANEL_CHOICE_STRING')
  147.     (panelLabelImage                'PANEL_LABEL_IMAGE')
  148.     (panelMenuTitleImage            'PANEL_MENU_TITLE_IMAGE')
  149.     (panelMenuMarkImage             'PANEL_MENU_MARK_IMAGE')
  150.     (panelMenuNomarkImage           'PANEL_MENU_NOMARK_IMAGE')
  151.     (panelTypeImage                 'PANEL_TYPE_IMAGE')
  152.     (panelChoiceImages              'PANEL_CHOICE_IMAGES')
  153.     (panelMenuChoiceImages          'PANEL_MENU_CHOICE_IMAGES')
  154.     (panelMarkImages                'PANEL_MARK_IMAGES')
  155.     (panelNomarkImages              'PANEL_NOMARK_IMAGES')
  156.     (panelChoiceImage               'PANEL_CHOICE_IMAGE')
  157.     (panelMarkImage                 'PANEL_MARK_IMAGE')
  158.     (panelNomarkImage               'PANEL_NOMARK_IMAGE')
  159.     (panelLabelFont                 'PANEL_LABEL_FONT')
  160.     (panelValueFont                 'PANEL_VALUE_FONT')
  161.     (panelMenuTitleFont             'PANEL_MENU_TITLE_FONT')
  162.     (panelFont                      'PANEL_FONT')
  163.     (panelChoiceFonts               'PANEL_CHOICE_FONTS')
  164.     (panelMenuChoiceFonts           'PANEL_MENU_CHOICE_FONTS')
  165.     (panelNotifyProc                'PANEL_NOTIFY_PROC')
  166.     (panelTimerProc                 'PANEL_TIMER_PROC')
  167.     (panelEventProc                 'PANEL_EVENT_PROC')
  168.     (panelBackgroundProc            'PANEL_BACKGROUND_PROC')
  169.     (panelItemRect                  'PANEL_ITEM_RECT')
  170.     (panelPixwin                    'PANEL_PIXWIN')
  171.     (panelClientData                'PANEL_CLIENT_DATA')
  172.     (panelVerticalScrollbar         'PANEL_VERTICAL_SCROLLBAR')
  173.     (panelHorizontalScrollbar       'PANEL_HORIZONTAL_SCROLLBAR')
  174.     (panelCursor                    'PANEL_CURSOR')
  175.     (panelCaretItem                 'PANEL_CARET_ITEM')
  176.     (panelFirstItem                 'PANEL_FIRST_ITEM')
  177.     (panelNextItem                  'PANEL_NEXT_ITEM')
  178.     (panelParentPanel               'PANEL_PARENT_PANEL')
  179. )
  180. !
  181.  
  182. Smalltalk at: #FrameAttrs put: Dictionary new!
  183.  
  184. FrameAttrs findDefsFor: #(
  185.     (frameClosed                    'FRAME_CLOSED')
  186.     (frameInheritColors             'FRAME_INHERIT_COLORS')
  187.     (frameShowLabel                 'FRAME_SHOW_LABEL')
  188.     (frameSubwindowsAdjustable      'FRAME_SUBWINDOWS_ADJUSTABLE')
  189.     (frameLabel                     'FRAME_LABEL')
  190.     (frameForegroundColor           'FRAME_FOREGROUND_COLOR')
  191.     (frameBackgroundColor           'FRAME_BACKGROUND_COLOR')
  192.     (frameIcon                      'FRAME_ICON')
  193.     (frameClosedX                   'FRAME_CLOSED_X')
  194.     (frameClosedY                   'FRAME_CLOSED_Y')
  195.     (frameClosedRect                'FRAME_CLOSED_RECT')
  196.     (frameCurrentRect               'FRAME_CURRENT_RECT')
  197.     (frameOpenRect                  'FRAME_OPEN_RECT')
  198.     (frameArgs                      'FRAME_ARGS')
  199.     (frameArgcPtrArgv               'FRAME_ARGC_PTR_ARGV')
  200.     (frameCmdlineHelpProc           'FRAME_CMDLINE_HELP_PROC')
  201.     (frameBorderStyle               'FRAME_BORDER_STYLE')
  202.     (frameEmboldenLabel             'FRAME_EMBOLDEN_LABEL')
  203.     (frameNthWindow                 'FRAME_NTH_WINDOW')
  204.     (frameNthSubwindow              'FRAME_NTH_SUBWINDOW')
  205.     (frameNthSubframe               'FRAME_NTH_SUBFRAME')
  206.     (frameDoneProc                  'FRAME_DONE_PROC')
  207.     (frameDefaultDoneProc           'FRAME_DEFAULT_DONE_PROC')
  208.     (frameNoConfirm                 'FRAME_NO_CONFIRM')
  209.     (frameNullAttr                  'FRAME_NULL_ATTR')
  210. )
  211. !
  212.  
  213. Smalltalk at: #CanvasAttrs put: Dictionary new!
  214.  
  215. CanvasAttrs findDefsFor: #(
  216.     (canvasPixwin                   'CANVAS_PIXWIN')
  217.     (canvasLeft                     'CANVAS_LEFT')
  218.     (canvasTop                      'CANVAS_TOP')
  219.     (canvasWidth                    'CANVAS_WIDTH')
  220.     (canvasHeight                   'CANVAS_HEIGHT')
  221.     (canvasDepth                    'CANVAS_DEPTH')
  222.     (canvasMargin                   'CANVAS_MARGIN')
  223.     (canvasRetained                 'CANVAS_RETAINED')
  224.     (canvasFixedImage               'CANVAS_FIXED_IMAGE')
  225.     (canvasRepaintProc              'CANVAS_REPAINT_PROC')
  226.     (canvasResizeProc               'CANVAS_RESIZE_PROC')
  227.     (canvasAutoClear                'CANVAS_AUTO_CLEAR')
  228.     (canvasAutoExpand               'CANVAS_AUTO_EXPAND')
  229.     (canvasAutoShrink               'CANVAS_AUTO_SHRINK')
  230.     (canvasFastMono                 'CANVAS_FAST_MONO')
  231. )
  232. !
  233.  
  234. Smalltalk at: #WindowAttrs put: Dictionary new!
  235.  
  236. WindowAttrs findDefsFor: #(
  237.     (winErrorMsg                    'WIN_ERROR_MSG')
  238.     (winX                           'WIN_X')
  239.     (winY                           'WIN_Y')
  240.     (winRightOf                     'WIN_RIGHT_OF')
  241.     (winBelow                       'WIN_BELOW')
  242.     (winWidth                       'WIN_WIDTH')
  243.     (winHeight                      'WIN_HEIGHT')
  244.     (winPercentWidth                'WIN_PERCENT_WIDTH')
  245.     (winPercentHeight               'WIN_PERCENT_HEIGHT')
  246.     (winColumns                     'WIN_COLUMNS')
  247.     (winRows                        'WIN_ROWS')
  248.     (winRect                        'WIN_RECT')
  249.     (winScreenRect                  'WIN_SCREEN_RECT')
  250.     (winFitHeight                   'WIN_FIT_HEIGHT')
  251.     (winFitWidth                    'WIN_FIT_WIDTH')
  252.     (winShow                        'WIN_SHOW')
  253.     (winMenu                        'WIN_MENU')
  254.     (winCursor                      'WIN_CURSOR')
  255.     (winHorizontalScrollbar         'WIN_HORIZONTAL_SCROLLBAR')
  256.     (winVerticalScrollbar           'WIN_VERTICAL_SCROLLBAR')
  257.     (winEventProc                   'WIN_EVENT_PROC')
  258.     (winInputDesignee               'WIN_INPUT_DESIGNEE')
  259.     (winGrabAllInput                'WIN_GRAB_ALL_INPUT')
  260.     (winKbdInputMask                'WIN_KBD_INPUT_MASK')
  261.     (winConsumeKbdEvent             'WIN_CONSUME_KBD_EVENT')
  262.     (winIgnoreKbdEvent              'WIN_IGNORE_KBD_EVENT')
  263.     (winConsumeKbdEvents            'WIN_CONSUME_KBD_EVENTS')
  264.     (winIgnoreKbdEvents             'WIN_IGNORE_KBD_EVENTS')
  265.     (winPickInputMask               'WIN_PICK_INPUT_MASK')
  266.     (winConsumePickEvent            'WIN_CONSUME_PICK_EVENT')
  267.     (winIgnorePickEvent             'WIN_IGNORE_PICK_EVENT')
  268.     (winConsumePickEvents           'WIN_CONSUME_PICK_EVENTS')
  269.     (winIgnorePickEvents            'WIN_IGNORE_PICK_EVENTS')
  270.     (winFont                        'WIN_FONT')
  271.     (winTopMargin                   'WIN_TOP_MARGIN')
  272.     (winBottomMargin                'WIN_BOTTOM_MARGIN')
  273.     (winLeftMargin                  'WIN_LEFT_MARGIN')
  274.     (winRightMargin                 'WIN_RIGHT_MARGIN')
  275.     (winRowHeight                   'WIN_ROW_HEIGHT')
  276.     (winColumnWidth                 'WIN_COLUMN_WIDTH')
  277.     (winRowGap                      'WIN_ROW_GAP')
  278.     (winColumnGap                   'WIN_COLUMN_GAP')
  279.     (winType                        'WIN_TYPE')
  280.     (winOwner                       'WIN_OWNER')
  281.     (winName                        'WIN_NAME')
  282.     (winClientData                  'WIN_CLIENT_DATA')
  283.     (winImplData                    'WIN_IMPL_DATA')
  284.     (winFd                          'WIN_FD')
  285.     (winDeviceName                  'WIN_DEVICE_NAME')
  286.     (winDeviceNumber                'WIN_DEVICE_NUMBER')
  287.     (winPixwin                      'WIN_PIXWIN')
  288.     (winMouseXy                     'WIN_MOUSE_XY')
  289.     (winShowUpdates                 'WIN_SHOW_UPDATES')
  290.     (winObject                      'WIN_OBJECT')
  291.     (winGetProc                     'WIN_GET_PROC')
  292.     (winSetProc                     'WIN_SET_PROC')
  293.     (winPresetProc                  'WIN_PRESET_PROC')
  294.     (winPostsetProc                 'WIN_POSTSET_PROC')
  295.     (winLayoutProc                  'WIN_LAYOUT_PROC')
  296.     (winNotifyDestroyProc           'WIN_NOTIFY_DESTROY_PROC')
  297.     (winNotifyEventProc             'WIN_NOTIFY_EVENT_PROC')
  298.     (winDefaultEventProc            'WIN_DEFAULT_EVENT_PROC')
  299.     (winCreated                     'WIN_CREATED')
  300.     (winCompatibility               'WIN_COMPATIBILITY')
  301.     (winCompatibilityInfo           'WIN_COMPATIBILITY_INFO')
  302.     (winRegister                    'WIN_REGISTER')
  303.     (winNotifyInfo                  'WIN_NOTIFY_INFO')
  304.     (winNullAttr                    'WIN_NULL_ATTR')
  305.     (winKbdFocus                    'WIN_KBD_FOCUS')
  306.     (winEventState                  'WIN_EVENT_STATE')
  307. )
  308. !
  309.  
  310. Smalltalk at: #TextswAttrs put: Dictionary new!
  311.  
  312. TextswAttrs findDefsFor: #(
  313.     (textswAdjustIsPendingDelete    'TEXTSW_ADJUST_IS_PENDING_DELETE')
  314.     (textswAgainLimit               'TEXTSW_AGAIN_LIMIT')
  315.     (textswAgainRecording           'TEXTSW_AGAIN_RECORDING')
  316.     (textswAutoIndent               'TEXTSW_AUTO_INDENT')
  317.     (textswAutoScrollBy             'TEXTSW_AUTO_SCROLL_BY')
  318.     (textswBlinkCaret               'TEXTSW_BLINK_CARET')
  319.     (textswBrowsing                 'TEXTSW_BROWSING')
  320.     (textswCheckpointFrequency      'TEXTSW_CHECKPOINT_FREQUENCY')
  321.     (textswClientData               'TEXTSW_CLIENT_DATA')
  322.     (textswConfirmOverwrite         'TEXTSW_CONFIRM_OVERWRITE')
  323.     (textswContents                 'TEXTSW_CONTENTS')
  324.     (textswControlCharsUseFont      'TEXTSW_CONTROL_CHARS_USE_FONT')
  325.     (textswDestroyAllViews          'TEXTSW_DESTROY_ALL_VIEWS')
  326.     (textswDisableCd                'TEXTSW_DISABLE_CD')
  327.     (textswDisableLoad              'TEXTSW_DISABLE_LOAD')
  328.     (textswEditBackChar             'TEXTSW_EDIT_BACK_CHAR')
  329.     (textswEditBackLine             'TEXTSW_EDIT_BACK_LINE')
  330.     (textswEditBackWord             'TEXTSW_EDIT_BACK_WORD')
  331.     (textswEditCount                'TEXTSW_EDIT_COUNT')
  332.     (textswErrorMsg                 'TEXTSW_ERROR_MSG')
  333.     (textswEsCreateProc             'TEXTSW_ES_CREATE_PROC')
  334.     (textswFile                     'TEXTSW_FILE')
  335.     (textswFont                     'TEXTSW_FONT')
  336.     (textswHeight                   'TEXTSW_HEIGHT')
  337.     (textswHistoryLimit             'TEXTSW_HISTORY_LIMIT')
  338.     (textswIgnoreLimit              'TEXTSW_IGNORE_LIMIT')
  339.     (textswInsertMakesVisible       'TEXTSW_INSERT_MAKES_VISIBLE')
  340.     (textswInsertOnly               'TEXTSW_INSERT_ONLY')
  341.     (textswInsertionPoint           'TEXTSW_INSERTION_POINT')
  342.     (textswLength                   'TEXTSW_LENGTH')
  343.     (textswLoadDirIsCd              'TEXTSW_LOAD_DIR_IS_CD')
  344.     (textswLowerContext             'TEXTSW_LOWER_CONTEXT')
  345.     (textswMemoryMaximum            'TEXTSW_MEMORY_MAXIMUM')
  346.     (textswMenu                     'TEXTSW_MENU')
  347.     (textswModified                 'TEXTSW_MODIFIED')
  348.     (textswMultiClickSpace          'TEXTSW_MULTI_CLICK_SPACE')
  349.     (textswMultiClickTimeout        'TEXTSW_MULTI_CLICK_TIMEOUT')
  350.     (textswMustShowCaret            'TEXTSW_MUST_SHOW_CARET')
  351.     (textswName                     'TEXTSW_NAME')
  352.     (textswNameToUse                'TEXTSW_NAME_TO_USE')
  353.     (textswNoResetToScratch         'TEXTSW_NO_RESET_TO_SCRATCH')
  354.     (textswNoSelectionService       'TEXTSW_NO_SELECTION_SERVICE')
  355.     (textswNotifyLevel              'TEXTSW_NOTIFY_LEVEL')
  356.     (textswNotifyProc               'TEXTSW_NOTIFY_PROC')
  357.     (textswPixwin                   'TEXTSW_PIXWIN')
  358.     (textswReadOnly                 'TEXTSW_READ_ONLY')
  359.     (textswResetMode                'TEXTSW_RESET_MODE')
  360.     (textswStatus                   'TEXTSW_STATUS')
  361.     (textswStoreChangesFile         'TEXTSW_STORE_CHANGES_FILE')
  362.     (textswStoreSelfIsSave          'TEXTSW_STORE_SELF_IS_SAVE')
  363.     (textswTabWidth                 'TEXTSW_TAB_WIDTH')
  364.     (textswTool                     'TEXTSW_TOOL')
  365.     (textswUpperContext             'TEXTSW_UPPER_CONTEXT')
  366.     (textswWidth                    'TEXTSW_WIDTH')
  367.     (textswCoalesceWith             'TEXTSW_COALESCE_WITH')
  368.     (textswEndAllViews              'TEXTSW_END_ALL_VIEWS')
  369.     (textswForAllViews              'TEXTSW_FOR_ALL_VIEWS')
  370.     (textswFirst                    'TEXTSW_FIRST')
  371.     (textswFirstLine                'TEXTSW_FIRST_LINE')
  372.     (textswLeftMargin               'TEXTSW_LEFT_MARGIN')
  373.     (textswLineBreakAction          'TEXTSW_LINE_BREAK_ACTION')
  374.     (textswRightMargin              'TEXTSW_RIGHT_MARGIN')
  375.     (textswScrollbar                'TEXTSW_SCROLLBAR')
  376.     (textswUpdateScrollbar          'TEXTSW_UPDATE_SCROLLBAR')
  377.     (textswSpare1                   'TEXTSW_SPARE_1')
  378.     (textswSpare2                   'TEXTSW_SPARE_2')
  379. )
  380. !
  381.  
  382. Smalltalk at: #MenuAttrs put: Dictionary new!
  383.  
  384. MenuAttrs findDefsFor: #(
  385.     (menuActionProc                 'MENU_ACTION_PROC')
  386.     (menuAction                     'MENU_ACTION')
  387.     (menuActionImage                'MENU_ACTION_IMAGE')
  388.     (menuActionItem                 'MENU_ACTION_ITEM')
  389.     (menuAppendItem                 'MENU_APPEND_ITEM')
  390.     (menuAppend                     'MENU_APPEND')
  391.     (menuBoxed                      'MENU_BOXED')
  392.     (menuCenter                     'MENU_CENTER')
  393.     (menuClientData                 'MENU_CLIENT_DATA')
  394.     (menuColumnMajor                'MENU_COLUMN_MAJOR')
  395.     (menuDefault                    'MENU_DEFAULT')
  396.     (menuDefaultItem                'MENU_DEFAULT_ITEM')
  397.     (menuDefaultImage               'MENU_DEFAULT_IMAGE')
  398.     (menuDisableItem                'MENU_DISABLE_ITEM')
  399.     (menuDefaultSelection           'MENU_DEFAULT_SELECTION')
  400.     (menuDescendFirst               'MENU_DESCEND_FIRST')
  401.     (menuFeedback                   'MENU_FEEDBACK')
  402.     (menuFirstEvent                 'MENU_FIRST_EVENT')
  403.     (menuFont                       'MENU_FONT')
  404.     (menuGenPullright               'MENU_GEN_PULLRIGHT')
  405.     (menuGenPullrightImage          'MENU_GEN_PULLRIGHT_IMAGE')
  406.     (menuGenPullrightItem           'MENU_GEN_PULLRIGHT_ITEM')
  407.     (menuGenProc                    'MENU_GEN_PROC')
  408.     (menuGenProcImage               'MENU_GEN_PROC_IMAGE')
  409.     (menuGenProcItem                'MENU_GEN_PROC_ITEM')
  410.     (menuHeight                     'MENU_HEIGHT')
  411.     (menuImage                      'MENU_IMAGE')
  412.     (menuImageItem                  'MENU_IMAGE_ITEM')
  413.     (menuImages                     'MENU_IMAGES')
  414.     (menuInitialSelection           'MENU_INITIAL_SELECTION')
  415.     (menuInitialSelectionSelected   'MENU_INITIAL_SELECTION_SELECTED')
  416.     (menuInitialSelectionExpanded   'MENU_INITIAL_SELECTION_EXPANDED')
  417.     (menuInactive                   'MENU_INACTIVE')
  418.     (menuInsert                     'MENU_INSERT')
  419.     (menuInsertItem                 'MENU_INSERT_ITEM')
  420.     (menuItem                       'MENU_ITEM')
  421.     (menuInvert                     'MENU_INVERT')
  422.     (menuJumpAfterSelection         'MENU_JUMP_AFTER_SELECTION')
  423.     (menuJumpAfterNoSelection       'MENU_JUMP_AFTER_NO_SELECTION')
  424.     (menuLastEvent                  'MENU_LAST_EVENT')
  425.     (menuLeftMargin                 'MENU_LEFT_MARGIN')
  426.     (menuLike                       'MENU_LIKE')
  427.     (menuMargin                     'MENU_MARGIN')
  428.     (menuMenu                       'MENU_MENU')
  429.     (menuNitems                     'MENU_NITEMS')
  430.     (menuNotifyProc                 'MENU_NOTIFY_PROC')
  431.     (menuNthItem                    'MENU_NTH_ITEM')
  432.     (menuNcols                      'MENU_NCOLS')
  433.     (menuNrows                      'MENU_NROWS')
  434.     (menuParent                     'MENU_PARENT')
  435.     (menuPullright                  'MENU_PULLRIGHT')
  436.     (menuPullrightDelta             'MENU_PULLRIGHT_DELTA')
  437.     (menuPullrightImage             'MENU_PULLRIGHT_IMAGE')
  438.     (menuPullrightItem              'MENU_PULLRIGHT_ITEM')
  439.     (menuRelease                    'MENU_RELEASE')
  440.     (menuReleaseImage               'MENU_RELEASE_IMAGE')
  441.     (menuRemove                     'MENU_REMOVE')
  442.     (menuRemoveItem                 'MENU_REMOVE_ITEM')
  443.     (menuReplace                    'MENU_REPLACE')
  444.     (menuReplaceItem                'MENU_REPLACE_ITEM')
  445.     (menuRightMargin                'MENU_RIGHT_MARGIN')
  446.     (menuSelected                   'MENU_SELECTED')
  447.     (menuSelectedItem               'MENU_SELECTED_ITEM')
  448.     (menuShadow                     'MENU_SHADOW')
  449.     (menuStayUp                     'MENU_STAY_UP')
  450.     (menuString                     'MENU_STRING')
  451.     (menuStringItem                 'MENU_STRING_ITEM')
  452.     (menuStrings                    'MENU_STRINGS')
  453.     (menuTitleItem                  'MENU_TITLE_ITEM')
  454.     (menuTitleImage                 'MENU_TITLE_IMAGE')
  455.     (menuType                       'MENU_TYPE')
  456.     (menuValidResult                'MENU_VALID_RESULT')
  457.     (menuValue                      'MENU_VALUE')
  458.     (menuWidth                      'MENU_WIDTH')
  459.     (menuNop                        'MENU_NOP')
  460.     (menuButton                     'MENU_BUTTON')
  461.     (menuFd                         'MENU_FD')
  462.     (menuIe                         'MENU_IE')
  463.     (menuPos                        'MENU_POS')
  464. )
  465. !
  466.  
  467. Smalltalk at: #IconAttrs put: Dictionary new!
  468.  
  469. IconAttrs findDefsFor: #(
  470.     (iconX                          'ICON_X')
  471.     (iconY                          'ICON_Y')
  472.     (iconWidth                      'ICON_WIDTH')
  473.     (iconHeight                     'ICON_HEIGHT')
  474.     (iconImageRect                  'ICON_IMAGE_RECT')
  475.     (iconLabelRect                  'ICON_LABEL_RECT')
  476.     (iconImage                      'ICON_IMAGE')
  477.     (iconLabel                      'ICON_LABEL')
  478.     (iconFont                       'ICON_FONT')
  479. )
  480. !
  481.  
  482.